supplied-by : /string ( c-addr u n -- c-addr' u' )  tuck - >r + r> ;
